home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / edit / cpaint.lha / Others_I_Wrote.lha / wint.e < prev   
Text File  |  1993-12-10  |  195b  |  14 lines
  1. /*prog to test windows*/
  2.  
  3. PROC main()
  4. DEF w,x,y
  5. FOR x:=0 TO 8
  6. y:=4000+x
  7. w:=OpenW(0,0,333,200,3,y,'test window',NIL,1,NIL)
  8. WriteF('Opening window sflag #\d',x)
  9. Delay(25)
  10. CloseW(w)
  11. ENDFOR
  12. ENDPROC
  13.  
  14.